<%

Function feeds_cabecario(Linhas)

		DIM data
		
		data = get_data_formatada_br()
		
			Linhas.WriteLine("<?xml version=""1.0"" encoding=""ISO-8859-1""?>" )
			Linhas.WriteLine("<rss version=""2.0""" )
			Linhas.WriteLine("	xmlns:content=""http://purl.org/rss/1.0/modules/content/""" )
			Linhas.WriteLine("	xmlns:wfw=""http://wellformedweb.org/CommentAPI/""" )
			Linhas.WriteLine("	xmlns:dc=""http://purl.org/dc/elements/1.1/""" )
			Linhas.WriteLine("	xmlns:atom=""http://www.w3.org/2005/Atom""" )
			Linhas.WriteLine("	xmlns:sy=""http://purl.org/rss/1.0/modules/syndication/""" )
			Linhas.WriteLine("	xmlns:slash=""http://purl.org/rss/1.0/modules/slash/""" )
			Linhas.WriteLine("	>" )
			Linhas.WriteLine("	<channel>" )
			Linhas.WriteLine("		<title>Barbolão. Bolão de Futebol</title>" )
			Linhas.WriteLine("		<atom:link href=""http://www.barbolao"" rel=""self"" type=""application/rss+xml"" />" )
			Linhas.WriteLine("		<link>http://www.barbolao.com.br</link>" )
			Linhas.WriteLine("		<description>Notícias do Barbolão</description>" )
			Linhas.WriteLine("		<lastBuildDate>"&data&"</lastBuildDate>" )
			Linhas.WriteLine("		<language>pt-br</language>" )
			Linhas.WriteLine("		<sy:updatePeriod>hourly</sy:updatePeriod>" )
			Linhas.WriteLine("		<sy:updateFrequency>1</sy:updateFrequency>" )

End Function

Function feeds_rodape(Linhas)

			Linhas.WriteLine("	</channel>" )
			Linhas.WriteLine("</rss>" )	

End Function

Function feeds_item(Linhas, caminho, id)

		DIM d, d2, texto_arquivo

		d = server.MapPath(caminho&"feeds/feeds/"&id&".xml")
		d2 = server.MapPath(caminho&"feeds/feeds/"&id&".txt")
		If IsArquivoExiste(d) then
		
			Arquivo_Renomear d, d2

			Set Arquivo = Server.CreateObject("Scripting.FileSystemObject")
			set Abre_Arquivo = Arquivo.OpenTextFile(d2)
			texto_arquivo = Abre_Arquivo.readAll() 
			Linhas.WriteLine("		"&String_intervalo(texto_arquivo, "<item>", "</item>"))
			Abre_Arquivo.close() 
			
			Arquivo_Renomear d2, d
					
		End If


End Function

Function feeds_atualizar(caminho, total)
 
		ArquivoXML = caminho&"feeds/rss/barbolao.xml" 'adicionando um nome no arquivo  
		Set FSO = CreateObject("Scripting.FileSystemObject") 'criando o objeto FSO  
		Set Linhas = FSO.CreateTextFile(Server.MapPath(ArquivoXML), True) 'salvando o arquivo no servidor através do método "CreateTextFile"  
		'gerando linas  
	 		feeds_cabecario Linhas
			
			str = "Select id FROM feeds where xml=1 Order By id desc LIMIT "&total
			Set rsF = conexao_aux.Execute(str)			
			
			Do while not rsF.eof
			
				feeds_item Linhas, caminho, rsF("id") 
			
			rsF.MoveNext
			Loop
			
			feeds_rodape Linhas
		
			
		'destruíndo os objetos  
		Linhas.Close  
		Set Linhas = Nothing  

End Function

%>